home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.46 / stinglibpcq / source / upper.p < prev    next >
Text File  |  1995-03-27  |  222b  |  17 lines
  1. external;
  2.  
  3. {$I "include:utils/stringlib.i"}
  4.  
  5. function Str_Upper(s:string) : string;
  6.  
  7. var i : integer;
  8.      s1 : string;
  9.  
  10. begin
  11.     s1 := strdup(s);
  12.     for i:=0 to (strlen(s1)-1) do
  13.         s1[i] := toupper(s1[i]);
  14.     Str_Upper:=s1;
  15. end;
  16.  
  17.